Parameters m.medico

Private ltalk, nomemed

if set('talk') = 'ON'
   set talk off
   ltalk = .t.
  else
   ltalk = .f.
endif

dimension NomeMed(1)
NomeMed(1) = ''

Select iif(empty(completo),nome,completo) as nome ;
  from medicos ;
 where codigo = m.Medico ;
  into array NomeMed

if ltalk 
   set talk on
endif

return NomeMed(1)
